Міністерство освіти та науки України
Національний університет „Львівська політехніка”
АЛГОРИТМІЧНА МОВА ПРОГРАМУВАННЯ Сі
ПРОСТІ ПРОГРАМИ ЛІНІЙНОЇ СТРУКТУРИ
Звіт
до лабораторної роботи №2 15-варівнт
З КУРСУ “ Комп’ютерна графіка ”
Львів-2005
Мета роботи - вивчити процедури та функції для управління кольорами та па-літрою графічних зображень; навчитися складати програми на алгоритмічній мові Турбо-Паскаль для побудови різноманітних кольорових зображень.
Завдання:
N% п/п
Варіанти завдань
14.
Блок-схема програми
Лістинг:
Program graf_madel;
uses crt, graph;
Var
x1,y1,x2,y2,d,t1,t2:integer;
file_name1:string;
tab_chek:char;
{---------------graph_install--------------------}
Procedure graph_install;
var driver, regim, error: integer;
begin
Clrscr;
driver:=detect;
initgraph(driver, regim, '');
error:=graphResult;
End;
{------------------------------------------------}
begin
Graph_install;
setbkcolor(15);
setcolor(12);
arc(100,100,180,310,40);
arc(150,100,230,360,40);
line(60,100,125,20);
line(190,100,125,20);
setfillstyle(1,13);
floodfill(100,100,12);
line(125,128,100,170);
line(125,128,150,170);
line(100,170,150,170);
setfillstyle(1,13);
floodfill(128,160,12);
d:=40;
t1:=180; t2:=30;
y1:=300; x1:=100;
x2:=125; y2:=380;
setcolor(6);
arc(x1,y1,t2,t1,d);
arc(x1+50,y1,0,140,d);
line(x1-d,y1,x2,y2);
line(x1+2*d+10,y1,x2,y2);
setfillstyle(1,6);
floodfill(x1,y1,6);
t1:=180; t2:=30;
y1:=300; x1:=100+200;
x2:=125+200; y2:=380;
setcolor(5);
arc(x1,y1,t2,t1,d);
arc(x1+50,y1,0,140,d);
line(x1-d,y1,x2,y2);
line(x1+2*d+10,y1,x2,y2);
setfillstyle(1,5);
floodfill(x1,y1,5);
t1:=180; t2:=30;
y1:=300-210; x1:=100+200;
x2:=125+200; y2:=380-210;
setcolor(4);
arc(x1,y1,t2,t1,d);
arc(x1+50,y1,0,140,d);
line(x1-d,y1,x2,y2);
line(x1+2*d+10,y1,x2,y2);
setfillstyle(1,4);
floodfill(x1,y1,4);
readln;
end.
Список ідентифікаторів констант, змінних, функцій, використаних у блок-схемі алгоритму і програмі:
x1,y1,x2,y2,– перемінні цілого типу, що вказують координати побудови ліній , Graph_install – процедура встановлення графічного режиму, line(x1,y1,x2,y2)- процедура побудови лінії, setcolor – встановлення кольору, setfillstyle()- встановлення коьору та типу заповнення, floodfill() – заповнення замкненої кривої заданим кольором;
Висновок: на цій лабораторній роботі ми навчили процедури та функції для управління кольорами та палітрою графічних зображень; також навчились складати програми на алгоритмічній мові Турбо-Паскаль для побудови різноманітних кольорових зображень.
